{	Problem: http://codechef.com/problems/INTEST/
 	Verdict: Accepted
}
var i,n:longint; k,r,t:int64;
begin
read(n,k);
r:=0;
for i:=1 to n do begin
	read(t);
	if t mod k=0 then inc(r);
end;
write(r);
end. 